﻿Public Class DMTinhThanh

    Public Sub New()
        InitializeComponent()
        Me.setObj(Me.PCV_CLINICDataSet_Don, Me.PCV_CLINICDataSet_Don.DMTinhThanh, Me.DMTinhThanhBindingSource, Me.TableAdapterManager, DMTinhThanhTableAdapter, MaITextEdit)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DMQuocGiaTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMQuocGia)
        Me.DMTinhThanhTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMTinhThanh)

    End Sub

    Private Shadows Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Dim report As Rp_DMTinhThanh = New Rp_DMTinhThanh
        report.ShowRibbonPreview()
    End Sub
End Class